/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Think Class Libraries / CTextFile 1.1 / Demo Samples / File segmenter sample / SegmenterMain.p

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ae 08 00 00 02 18 09 53 | 65 67 6d 65 6e 74 65 72 |.......S|egmenter|
|00000010| 98 01 92 25 00 01 45 7b | 53 65 67 6d 65 6e 74 65 |...%..E{|Segmente|
|00000020| 72 20 76 31 2e 30 20 a9 | 20 31 39 39 32 20 62 79 |r v1.0 .| 1992 by|
|00000030| 20 57 69 6c 6c 69 61 6d | 20 53 74 75 64 65 6e 6d | William| Studenm|
|00000040| 75 6e 64 2e 20 46 6f 72 | 20 64 69 73 74 72 69 62 |und. For| distrib|
|00000050| 75 74 69 6f 6e 20 69 6e | 66 6f 2c 7d 92 2a 00 01 |ution in|fo,}.*..|
|00000060| 4f 7b 70 6c 65 61 73 65 | 20 73 65 65 20 61 74 74 |O{please| see att|
|00000070| 61 63 68 65 64 20 41 62 | 6f 75 74 20 66 69 6c 65 |ached Ab|out file|
|00000080| 2e 20 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 69 |. This p|rogram i|
|00000090| 73 20 61 20 64 65 6d 6f | 20 6f 66 20 74 68 65 20 |s a demo| of the |
|000000a0| 43 54 65 78 74 46 69 6c | 65 20 63 6c 61 73 73 7d |CTextFil|e class}|
|000000b0| 9e 01 7e 03 03 54 43 4c | 7c 01 7e 08 0c 54 65 78 |..~..TCL||.~..Tex|
|000000c0| 74 46 69 6c 65 49 6e 74 | 66 08 98 01 a2 01 cc 06 |tFileInt|f.......|
|000000d0| 09 63 68 75 6e 6b 53 69 | 7a 65 7a 03 03 00 7d 00 |.chunkSi|zez...}.|
|000000e0| 98 01 ba 01 7e 05 06 6d | 79 46 69 6c 65 08 7c 01 |....~..m|yFile.|.|
|000000f0| 7e 06 08 6d 79 4f 75 74 | 70 75 74 08 a6 01 7e 06 |~..myOut|put...~.|
|00000100| 09 43 54 65 78 74 46 69 | 6c 65 98 01 7e 02 01 73 |.CTextFi|le..~..s|
|00000110| 7c 01 7e 05 06 69 6e 4e | 61 6d 65 08 a6 01 72 01 ||.~..inN|ame...r.|
|00000120| 98 01 7e 03 02 63 31 08 | a6 01 7e 04 04 63 68 61 |..~..c1.|..~..cha|
|00000130| 72 08 98 01 7e 06 09 61 | 75 74 6f 4e 61 6d 65 73 |r...~..a|utoNames|
|00000140| 7c 01 7e 08 0c 6f 75 74 | 70 75 74 49 73 4f 70 65 ||.~..out|putIsOpe|
|00000150| 6e 08 a6 01 7e 05 07 62 | 6f 6f 6c 65 61 6e 98 01 |n...~..b|oolean..|
|00000160| 7e 06 09 64 6c 67 4f 72 | 69 67 69 6e a6 01 7e 04 |~..dlgOr|igin..~.|
|00000170| 05 50 6f 69 6e 74 98 01 | 7e 05 07 74 68 65 52 65 |.Point..|~..theRe|
|00000180| 63 74 a6 01 7e 04 04 72 | 65 63 74 08 98 01 7e 07 |ct..~..r|ect...~.|
|00000190| 0b 74 68 65 54 79 70 65 | 4c 69 73 74 a6 01 7e 07 |.theType|List..~.|
|000001a0| 0a 53 66 54 79 70 65 4c | 69 73 74 08 98 01 7e 06 |.SfTypeL|ist...~.|
|000001b0| 08 74 68 65 52 65 70 6c | 79 08 a6 01 7e 05 07 53 |.theRepl|y...~..S|
|000001c0| 46 52 65 70 6c 79 98 01 | 7e 06 09 74 68 65 4c 65 |FReply..|~..theLe|
|000001d0| 6e 67 74 68 7c 01 7e 06 | 09 66 69 6c 65 43 6f 75 |ngth|.~.|.fileCou|
|000001e0| 6e 74 7c 01 7e 06 09 73 | 65 67 4c 65 6e 67 74 68 |nt|.~..s|egLength|
|000001f0| 7c 01 7e 02 01 69 a6 01 | 7e 05 07 69 6e 74 65 67 ||.~..i..|~..integ|
|00000200| 65 72 98 01 7e 02 01 6c | a6 01 7e 05 07 6c 6f 6e |er..~..l|..~..lon|
|00000210| 67 69 6e 74 98 01 94 01 | b0 0d 00 00 02 c8 12 73 |gint....|.......s|
|00000220| 65 71 75 65 6e 63 65 4f | 70 65 6e 4f 75 74 70 75 |equenceO|penOutpu|
|00000230| 74 08 a8 01 7e 04 05 66 | 6e 61 6d 65 a6 01 72 01 |t...~..f|name..r.|
|00000240| 98 01 7e 05 06 73 65 71 | 4e 75 6d 08 a6 01 7e 05 |..~..seq|Num...~.|
|00000250| 07 69 6e 74 65 67 65 72 | aa 01 98 01 92 27 00 01 |.integer|.....'..|
|00000260| 48 7b 4d 61 6b 65 20 61 | 20 6e 75 6d 62 65 72 65 |H{Make a| numbere|
|00000270| 64 20 66 69 6c 65 20 6e | 61 6d 65 20 61 6e 64 2c |d file n|ame and,|
|00000280| 20 69 66 20 61 70 70 72 | 6f 70 72 69 61 74 65 2c | if appr|opriate,|
|00000290| 20 61 73 6b 20 77 68 65 | 72 65 20 69 74 20 73 68 | ask whe|re it sh|
|000002a0| 6f 75 6c 64 20 67 6f 2e | 7d 08 ba 01 7e 04 05 73 |ould go.|}...~..s|
|000002b0| 74 65 6d 70 7c 01 7e 06 | 09 6e 75 6d 53 74 72 69 |temp|.~.|.numStri|
|000002c0| 6e 67 a6 01 72 01 98 01 | 80 05 00 00 05 2c 00 00 |ng..r...|.....,..|
|000002d0| 04 74 78 14 5c 09 6e 75 | 6d 53 74 72 69 6e 67 0a |.tx.\.nu|mString.|
|000002e0| 5c 08 53 74 72 69 6e 67 | 4f 66 10 5c 06 73 65 71 |\.String|Of.\.seq|
|000002f0| 4e 75 6d 14 5a 03 00 01 | 16 08 98 01 78 20 5c 05 |Num.Z...|....x \.|
|00000300| 73 74 65 6d 70 0a 5c 06 | 43 6f 6e 63 61 74 10 5c |stemp.\.|Concat.\|
|00000310| 04 43 6f 70 79 10 5c 05 | 66 6e 61 6d 65 12 5a 03 |.Copy.\.|fname.Z.|
|00000320| 00 01 12 08 5a 03 00 1c | 16 12 5a 02 01 2e 12 5c |....Z...|..Z....\|
|00000330| 09 6e 75 6d 53 74 72 69 | 6e 67 16 08 98 01 78 0d |.numStri|ng....x.|
|00000340| 5c 08 74 68 65 52 65 70 | 6c 79 52 5c 04 67 6f 6f |\.theRep|lyR\.goo|
|00000350| 64 0a 5c 04 74 72 75 65 | 98 01 92 1d 00 00 35 09 |d.\.true|......5.|
|00000360| 09 7b 53 65 74 20 75 70 | 20 69 6e 20 63 61 73 65 |.{Set up| in case|
|00000370| 20 77 65 20 61 73 73 69 | 67 6e 20 74 68 69 73 20 | we assi|gn this |
|00000380| 6e 61 6d 65 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |name aut|omatical|
|00000390| 6c 79 2e 7d 78 0e 5c 08 | 74 68 65 52 65 70 6c 79 |ly.}x.\.|theReply|
|000003a0| 52 5c 05 66 6e 61 6d 65 | 0a 5c 05 73 74 65 6d 70 |R\.fname|.\.stemp|
|000003b0| 98 01 86 0f 10 5c 06 73 | 65 71 4e 75 6d 44 5a 03 |.....\.s|eqNumDZ.|
|000003c0| 00 01 16 40 24 5c 09 61 | 75 74 6f 4e 61 6d 65 73 |...@$\.a|utoNames|
|000003d0| 92 1a 00 00 2f 09 7b 41 | 73 6b 20 77 68 65 72 65 |..../.{A|sk where|
|000003e0| 20 74 68 65 20 6f 75 74 | 70 75 74 20 67 6f 65 73 | the out|put goes|
|000003f0| 2c 20 69 66 20 77 65 20 | 73 68 6f 75 6c 64 20 61 |, if we |should a|
|00000400| 73 6b 2e 7d 78 30 5c 09 | 53 46 50 75 74 46 69 6c |sk.}x0\.|SFPutFil|
|00000410| 65 10 5c 09 64 6c 67 4f | 72 69 67 69 6e 12 5c 06 |e.\.dlgO|rigin.\.|
|00000420| 43 6f 6e 63 61 74 10 5a | 05 0c 50 75 74 20 73 65 |Concat.Z|..Put se|
|00000430| 67 6d 65 6e 74 20 12 5c | 09 6e 75 6d 53 74 72 69 |gment .\|.numStri|
|00000440| 6e 67 12 5a 05 07 20 77 | 68 65 72 65 3f 16 12 5c |ng.Z.. w|here?..\|
|00000450| 05 73 74 65 6d 70 12 58 | 12 5c 08 74 68 65 52 65 |.stemp.X|.\.theRe|
|00000460| 70 6c 79 16 98 01 86 0a | 5c 08 74 68 65 52 65 70 |ply.....|\.theRep|
|00000470| 6c 79 52 5c 04 67 6f 6f | 64 08 80 05 00 00 00 00 |lyR\.goo|d.......|
|00000480| 00 00 04 70 78 12 5c 08 | 6d 79 4f 75 74 70 75 74 |...px.\.|myOutput|
|00000490| 52 5c 09 53 46 53 70 65 | 63 69 66 79 10 5c 08 74 |R\.SFSpe|cify.\.t|
|000004a0| 68 65 52 65 70 6c 79 16 | 98 01 78 0b 5c 08 6d 79 |heReply.|..x.\.my|
|000004b0| 4f 75 74 70 75 74 52 5c | 07 52 65 77 72 69 74 65 |OutputR\|.Rewrite|
|000004c0| 98 01 92 0c 00 00 12 09 | 09 7b 4f 70 65 6e 28 66 |........|.{Open(f|
|000004d0| 73 57 72 50 65 72 6d 29 | 7d 08 78 0c 5c 0c 6f 75 |sWrPerm)|}.x.\.ou|
|000004e0| 74 70 75 74 49 73 4f 70 | 65 6e 0a 5c 04 74 72 75 |tputIsOp|en.\.tru|
|000004f0| 65 08 98 01 78 09 5c 09 | 73 65 67 4c 65 6e 67 74 |e...x.\.|segLengt|
|00000500| 68 0a 5a 03 00 00 98 01 | 9a 01 98 01 9a 01 98 01 |h.Z.....|........|
|00000510| 92 0d 00 00 15 09 7b 73 | 65 71 75 65 6e 63 65 4f |......{s|equenceO|
|00000520| 70 65 6e 4f 75 74 70 75 | 74 7d 94 01 b0 0d 00 00 |penOutpu|t}......|
|00000530| 05 64 13 73 65 71 75 65 | 6e 63 65 43 6c 6f 73 65 |.d.seque|nceClose|
|00000540| 4f 75 74 70 75 74 a8 01 | ba 01 7e 05 06 73 65 71 |Output..|..~..seq|
|00000550| 4e 75 6d 08 a6 01 7e 05 | 07 69 6e 74 65 67 65 72 |Num...~.|.integer|
|00000560| aa 01 98 01 80 05 00 00 | 00 00 00 00 05 aa 86 08 |........|........|
|00000570| 5c 0c 6f 75 74 70 75 74 | 49 73 4f 70 65 6e 80 05 |\.output|IsOpen..|
|00000580| 00 00 00 00 00 00 05 a8 | 78 0a 5c 08 6d 79 4f 75 |........|x.\.myOu|
|00000590| 74 70 75 74 52 5c 05 43 | 6c 6f 73 65 98 01 78 0c |tputR\.C|lose..x.|
|000005a0| 5c 0c 6f 75 74 70 75 74 | 49 73 4f 70 65 6e 0a 5c |\.output|IsOpen.\|
|000005b0| 05 66 61 6c 73 65 98 01 | 92 17 00 00 29 09 7b 43 |.false..|....).{C|
|000005c0| 6c 65 61 6e 20 75 70 20 | 26 20 67 65 74 20 72 65 |lean up |& get re|
|000005d0| 61 64 79 20 66 6f 72 20 | 74 68 65 20 6e 65 78 74 |ady for |the next|
|000005e0| 20 66 69 6c 65 7d 86 07 | 5c 09 61 75 74 6f 4e 61 | file}..|\.autoNa|
|000005f0| 6d 65 73 08 78 19 5c 07 | 77 72 69 74 65 6c 6e 10 |mes.x.\.|writeln.|
|00000600| 5a 05 12 44 6f 6e 65 20 | 77 69 74 68 20 73 65 67 |Z..Done |with seg|
|00000610| 6d 65 6e 74 20 12 5c 06 | 73 65 71 4e 75 6d 14 08 |ment .\.|seqNum..|
|00000620| 5a 03 00 01 16 08 98 01 | 78 0c 5c 06 73 65 71 4e |Z.......|x.\.seqN|
|00000630| 75 6d 0a 5c 06 73 65 71 | 4e 75 6d 3c 5a 03 00 01 |um.\.seq|Num<Z...|
|00000640| 9a 01 9a 01 98 01 92 0e | 00 00 16 09 7b 73 65 71 |........|....{seq|
|00000650| 75 65 6e 63 65 43 6c 6f | 73 65 4f 75 74 70 75 74 |uenceClo|seOutput|
|00000660| 7d 08 94 01 80 05 00 00 | 00 00 00 00 11 7c 92 0b |}.......|.....|..|
|00000670| 00 00 11 09 7b 53 61 6d | 70 6c 65 54 65 78 74 46 |....{Sam|pleTextF|
|00000680| 69 6c 65 7d 94 01 78 0b | 5c 0a 67 53 69 67 6e 61 |ile}..x.|\.gSigna|
|00000690| 74 75 72 65 0a 5a 05 04 | 74 74 78 74 98 01 92 0f |ture.Z..|ttxt....|
|000006a0| 00 00 18 09 7b 54 65 61 | 63 68 54 65 78 74 27 73 |....{Tea|chText's|
|000006b0| 20 73 69 67 6e 61 74 75 | 72 65 7d 08 78 09 5c 09 | signatu|re}.x.\.|
|000006c0| 66 69 6c 65 43 6f 75 6e | 74 0a 5a 03 00 01 98 01 |fileCoun|t.Z.....|
|000006d0| 78 0c 5c 0c 6f 75 74 70 | 75 74 49 73 4f 70 65 6e |x.\.outp|utIsOpen|
|000006e0| 0a 5c 05 66 61 6c 73 65 | 98 01 94 01 78 0f 5c 03 |.\.false|....x.\.|
|000006f0| 6e 65 77 10 5c 09 43 54 | 65 78 74 46 69 6c 65 10 |new.\.CT|extFile.|
|00000700| 5c 06 6d 79 46 69 6c 65 | 16 16 98 01 78 10 5c 03 |\.myFile|....x.\.|
|00000710| 6e 65 77 10 5c 09 43 54 | 65 78 74 46 69 6c 65 10 |new.\.CT|extFile.|
|00000720| 5c 08 6d 79 4f 75 74 70 | 75 74 16 16 98 01 78 0b |\.myOutp|ut....x.|
|00000730| 5c 06 6d 79 46 69 6c 65 | 52 5c 09 49 54 65 78 74 |\.myFile|R\.IText|
|00000740| 46 69 6c 65 98 01 78 0c | 5c 08 6d 79 4f 75 74 70 |File..x.|\.myOutp|
|00000750| 75 74 52 5c 09 49 54 65 | 78 74 46 69 6c 65 98 01 |utR\.ITe|xtFile..|
|00000760| 94 01 78 0c 5c 07 74 68 | 65 52 65 63 74 52 5c 04 |..x.\.th|eRectR\.|
|00000770| 6c 65 66 74 0a 08 5a 03 | 00 0a 98 01 92 21 00 00 |left..Z.|.....!..|
|00000780| 3c 09 09 7b 53 65 74 73 | 20 75 70 20 74 68 65 20 |<..{Sets| up the |
|00000790| 54 65 78 74 20 77 69 6e | 64 6f 77 2e 20 53 69 7a |Text win|dow. Siz|
|000007a0| 65 64 20 74 6f 20 77 6f | 72 6b 20 77 2f 20 73 6d |ed to wo|rk w/ sm|
|000007b0| 61 6c 6c 20 73 63 72 65 | 65 6e 73 2e 7d 08 78 0c |all scre|ens.}.x.|
|000007c0| 5c 07 74 68 65 52 65 63 | 74 52 5c 05 72 69 67 68 |\.theRec|tR\.righ|
|000007d0| 74 0a 5a 03 01 fe 98 01 | 78 0b 5c 07 74 68 65 52 |t.Z.....|x.\.theR|
|000007e0| 65 63 74 52 5c 03 74 6f | 70 0a 5a 03 00 32 98 01 |ectR\.to|p.Z..2..|
|000007f0| 78 0d 5c 07 74 68 65 52 | 65 63 74 52 5c 06 62 6f |x.\.theR|ectR\.bo|
|00000800| 74 74 6f 6d 0a 08 5a 03 | 01 7c 98 01 78 0d 5c 0b |ttom..Z.|.|..x.\.|
|00000810| 53 65 74 54 65 78 74 52 | 65 63 74 10 5c 07 74 68 |SetTextR|ect.\.th|
|00000820| 65 52 65 63 74 16 98 01 | 7e 06 08 53 68 6f 77 54 |eRect...|~..ShowT|
|00000830| 65 78 74 08 98 01 94 01 | 78 2f 5c 07 77 72 69 74 |ext.....|x/\.writ|
|00000840| 65 6c 6e 10 5a 05 4e 54 | 68 69 73 20 70 72 6f 67 |eln.Z.NT|his prog|
|00000850| 72 61 6d 20 75 73 65 73 | 20 74 68 65 20 43 54 65 |ram uses| the CTe|
|00000860| 78 74 46 69 6c 65 20 66 | 69 6c 65 20 63 6c 61 73 |xtFile f|ile clas|
|00000870| 73 20 74 6f 20 72 65 61 | 64 20 61 6e 64 20 77 72 |s to rea|d and wr|
|00000880| 69 74 65 20 41 53 43 49 | 49 20 64 61 74 61 20 66 |ite ASCI|I data f|
|00000890| 69 6c 65 73 2e 16 98 01 | 78 2d 5c 07 77 72 69 74 |iles....|x-\.writ|
|000008a0| 65 6c 6e 10 5a 05 4a 53 | 70 65 63 69 66 69 63 61 |eln.Z.JS|pecifica|
|000008b0| 6c 6c 79 2c 20 74 68 69 | 73 20 70 72 6f 67 72 61 |lly, thi|s progra|
|000008c0| 6d 20 72 65 61 64 73 20 | 6f 6e 65 20 66 69 6c 65 |m reads |one file|
|000008d0| 20 61 6e 64 20 77 72 69 | 74 65 73 20 6f 75 74 20 | and wri|tes out |
|000008e0| 61 20 73 65 72 69 65 73 | 20 6f 66 20 66 69 6c 65 |a series| of file|
|000008f0| 73 16 98 01 78 1d 5c 07 | 77 72 69 74 65 6c 6e 10 |s...x.\.|writeln.|
|00000900| 5a 05 13 65 61 63 68 20 | 73 6c 69 67 68 74 6c 79 |Z..each |slightly|
|00000910| 20 6f 76 65 72 20 12 5c | 09 63 68 75 6e 6b 53 69 | over .\|.chunkSi|
|00000920| 7a 65 14 08 5a 03 00 01 | 12 5a 02 01 2e 16 98 01 |ze..Z...|.Z......|
|00000930| 7e 05 07 77 72 69 74 65 | 6c 6e 98 01 94 01 78 1c |~..write|ln....x.|
|00000940| 5c 07 77 72 69 74 65 4c | 6e 10 5a 05 27 50 6c 65 |\.writeL|n.Z.'Ple|
|00000950| 61 73 65 20 63 68 6f 6f | 73 65 20 74 68 65 20 66 |ase choo|se the f|
|00000960| 69 6c 65 20 74 6f 20 62 | 65 20 62 72 6f 6b 65 6e |ile to b|e broken|
|00000970| 20 75 70 2e 16 08 98 01 | 78 0f 5c 0b 74 68 65 54 | up.....|x.\.theT|
|00000980| 79 70 65 4c 69 73 74 18 | 5a 03 00 00 1c 0a 5a 05 |ypeList.|Z.....Z.|
|00000990| 04 54 45 58 54 08 98 01 | 92 0e 00 00 16 09 7b 4f |.TEXT...|......{O|
|000009a0| 6e 6c 79 20 74 79 70 65 | 20 6c 6f 6f 6b 65 64 20 |nly type| looked |
|000009b0| 61 74 7d 08 78 11 5c 05 | 53 65 74 50 74 10 5c 09 |at}.x.\.|SetPt.\.|
|000009c0| 64 6c 67 4f 72 69 67 69 | 6e 12 5a 03 00 55 12 08 |dlgOrigi|n.Z..U..|
|000009d0| 5a 03 00 96 16 08 98 01 | 78 20 5c 09 53 46 47 65 |Z.......|x \.SFGe|
|000009e0| 74 46 69 6c 65 10 5c 09 | 64 6c 67 4f 72 69 67 69 |tFile.\.|dlgOrigi|
|000009f0| 6e 12 5a 05 00 12 58 12 | 5a 03 00 01 12 5c 0b 74 |n.Z...X.|Z....\.t|
|00000a00| 68 65 54 79 70 65 4c 69 | 73 74 12 58 12 5c 08 74 |heTypeLi|st.X.\.t|
|00000a10| 68 65 52 65 70 6c 79 16 | 98 01 94 01 86 0a 5c 08 |heReply.|......\.|
|00000a20| 74 68 65 52 65 70 6c 79 | 52 5c 04 67 6f 6f 64 08 |theReply|R\.good.|
|00000a30| 80 05 00 00 00 00 00 00 | 0c 7c 7e 05 07 77 72 69 |........|.|~..wri|
|00000a40| 74 65 6c 6e 98 01 78 24 | 5c 07 77 72 69 74 65 6c |teln..x$|\.writel|
|00000a50| 6e 10 5a 05 1f 55 6e 64 | 65 72 73 74 6f 6f 64 2e |n.Z..Und|erstood.|
|00000a60| 20 54 68 65 20 66 69 6c | 65 20 69 73 20 6e 61 6d | The fil|e is nam|
|00000a70| 65 64 20 22 12 5c 08 74 | 68 65 52 65 70 6c 79 52 |ed ".\.t|heReplyR|
|00000a80| 5c 05 66 6e 61 6d 65 12 | 5a 02 01 22 16 08 98 01 |\.fname.|Z.."....|
|00000a90| 78 0f 5c 06 69 6e 4e 61 | 6d 65 0a 5c 08 74 68 65 |x.\.inNa|me.\.the|
|00000aa0| 52 65 70 6c 79 52 5c 05 | 66 6e 61 6d 65 08 98 01 |ReplyR\.|fname...|
|00000ab0| 92 0b 00 00 10 09 7b 53 | 61 76 65 20 74 68 65 20 |......{S|ave the |
|00000ac0| 6e 61 6d 65 7d 08 94 01 | 78 11 5c 06 6d 79 46 69 |name}...|x.\.myFi|
|00000ad0| 6c 65 52 5c 09 53 46 53 | 70 65 63 69 66 79 10 5c |leR\.SFS|pecify.\|
|00000ae0| 08 74 68 65 52 65 70 6c | 79 16 98 01 92 16 00 00 |.theRepl|y.......|
|00000af0| 26 09 09 7b 4f 70 65 6e | 20 6e 6f 77 20 73 6f 20 |&..{Open| now so |
|00000b00| 77 65 20 63 61 6e 20 67 | 65 74 20 74 68 65 20 6c |we can g|et the l|
|00000b10| 65 6e 67 74 68 2e 7d 08 | 78 09 5c 06 6d 79 46 69 |ength.}.|x.\.myFi|
|00000b20| 6c 65 52 5c 05 52 65 73 | 65 74 98 01 92 0b 00 00 |leR\.Res|et......|
|00000b30| 11 09 7b 4f 70 65 6e 28 | 66 73 52 64 50 65 72 6d |..{Open(|fsRdPerm|
|00000b40| 29 7d 78 0d 5c 01 6c 0a | 5c 06 6d 79 46 69 6c 65 |)}x.\.l.|\.myFile|
|00000b50| 52 5c 09 47 65 74 4c 65 | 6e 67 74 68 98 01 78 0b |R\.GetLe|ngth..x.|
|00000b60| 5c 01 69 0a 5c 01 6c 34 | 5c 09 63 68 75 6e 6b 53 |\.i.\.l4|\.chunkS|
|00000b70| 69 7a 65 08 98 01 86 0c | 10 5c 01 6c 36 5c 09 63 |ize.....|.\.l6\.c|
|00000b80| 68 75 6e 6b 53 69 7a 65 | 16 46 5a 03 00 00 92 08 |hunkSize|.FZ.....|
|00000b90| 00 00 0b 09 7b 52 6f 75 | 6e 64 20 75 70 7d 78 07 |....{Rou|nd up}x.|
|00000ba0| 5c 01 69 0a 5c 01 69 3c | 5a 03 00 01 98 01 78 1d |\.i.\.i<|Z.....x.|
|00000bb0| 5c 07 77 72 69 74 65 6c | 6e 10 5a 05 0c 54 68 65 |\.writel|n.Z..The|
|00000bc0| 20 66 69 6c 65 20 69 73 | 20 12 5c 01 6c 14 5a 03 | file is| .\.l.Z.|
|00000bd0| 00 01 12 5a 05 11 20 63 | 68 61 72 61 63 74 65 72 |...Z.. c|haracter|
|00000be0| 73 20 6c 6f 6e 67 2e 16 | 98 01 78 25 5c 07 77 72 |s long..|..x%\.wr|
|00000bf0| 69 74 65 6c 6e 10 5a 05 | 22 49 74 20 77 69 6c 6c |iteln.Z.|"It will|
|00000c00| 20 62 65 20 62 72 6f 6b | 65 6e 20 75 70 20 69 6e | be brok|en up in|
|00000c10| 74 6f 20 61 74 20 6d 6f | 73 74 20 12 5c 01 69 14 |to at mo|st .\.i.|
|00000c20| 5a 03 00 01 12 5a 05 0a | 20 73 65 67 6d 65 6e 74 |Z....Z..| segment|
|00000c30| 73 2e 16 08 98 01 7e 05 | 07 77 72 69 74 65 6c 6e |s.....~.|.writeln|
|00000c40| 98 01 92 14 00 01 22 7b | 44 6f 20 73 6f 6d 65 20 |......"{|Do some |
|00000c50| 6c 61 73 74 20 6d 69 6e | 75 74 65 20 71 75 65 73 |last min|ute ques|
|00000c60| 74 69 6f 6e 69 6e 67 2e | 7d 08 78 1c 5c 05 77 72 |tioning.|}.x.\.wr|
|00000c70| 69 74 65 10 5a 05 29 44 | 6f 20 79 6f 75 20 77 61 |ite.Z.)D|o you wa|
|00000c80| 6e 74 20 74 6f 20 6d 61 | 6e 75 61 6c 6c 79 20 70 |nt to ma|nually p|
|00000c90| 6c 61 63 65 20 65 61 63 | 68 20 66 69 6c 65 3f 20 |lace eac|h file? |
|00000ca0| 16 08 98 01 78 07 5c 04 | 72 65 61 64 10 5c 02 63 |....x.\.|read.\.c|
|00000cb0| 31 16 98 01 86 0d 10 5c | 02 63 31 44 5a 02 01 59 |1......\|.c1DZ..Y|
|00000cc0| 16 40 10 5c 02 63 31 44 | 5a 02 01 79 16 08 78 0b |.@.\.c1D|Z..y..x.|
|00000cd0| 5c 09 61 75 74 6f 4e 61 | 6d 65 73 0a 5c 05 66 61 |\.autoNa|mes.\.fa|
|00000ce0| 6c 73 65 08 96 01 78 0a | 5c 09 61 75 74 6f 4e 61 |lse...x.|\.autoNa|
|00000cf0| 6d 65 73 0a 5c 04 74 72 | 75 65 98 01 7e 05 07 77 |mes.\.tr|ue..~..w|
|00000d00| 72 69 74 65 6c 6e 98 01 | 7e 05 07 77 72 69 74 65 |riteln..|~..write|
|00000d10| 6c 6e 98 01 9a 01 96 01 | 78 0d 5c 07 77 72 69 74 |ln......|x.\.writ|
|00000d20| 65 6c 6e 10 5a 05 09 47 | 6f 6f 64 20 62 79 65 21 |eln.Z..G|ood bye!|
|00000d30| 16 08 98 01 92 08 00 00 | 0a 09 7b 69 66 20 67 6f |........|..{if go|
|00000d40| 6f 64 7d 08 94 01 86 0a | 5c 08 74 68 65 52 65 70 |od}.....|\.theRep|
|00000d50| 6c 79 52 5c 04 67 6f 6f | 64 08 80 05 00 00 00 00 |lyR\.goo|d.......|
|00000d60| 00 00 11 78 78 16 5c 12 | 73 65 71 75 65 6e 63 65 |...xx.\.|sequence|
|00000d70| 4f 70 65 6e 4f 75 74 70 | 75 74 10 5c 06 69 6e 4e |OpenOutp|ut.\.inN|
|00000d80| 61 6d 65 12 5c 09 66 69 | 6c 65 43 6f 75 6e 74 16 |ame.\.fi|leCount.|
|00000d90| 98 01 94 01 86 0a 5c 08 | 74 68 65 52 65 70 6c 79 |......\.|theReply|
|00000da0| 52 5c 04 67 6f 6f 64 08 | 80 05 00 00 00 00 00 00 |R\.good.|........|
|00000db0| 11 76 94 01 8a 09 24 5c | 06 6d 79 46 69 6c 65 52 |.v....$\|.myFileR|
|00000dc0| 5c 03 45 4f 46 08 80 05 | 00 00 00 00 00 00 10 92 |\.EOF...|........|
|00000dd0| 86 08 5c 06 6d 79 46 69 | 6c 65 52 5c 03 45 4f 4c |..\.myFi|leR\.EOL|
|00000de0| 92 27 00 00 48 09 7b 57 | 65 27 6c 6c 20 67 65 74 |.'..H.{W|e'll get|
|00000df0| 20 61 6e 20 45 4f 4c 20 | 69 66 20 74 68 65 20 66 | an EOL |if the f|
|00000e00| 69 6c 65 20 65 6e 64 73 | 20 77 2f 6f 20 61 20 43 |ile ends| w/o a C|
|00000e10| 52 20 63 68 61 72 61 63 | 74 65 72 2e 20 54 68 69 |R charac|ter. Thi|
|00000e20| 73 20 74 65 73 74 20 63 | 61 6e 27 74 7d 08 7e 04 |s test c|an't}.~.|
|00000e30| 05 6c 65 61 76 65 98 01 | 92 2b 00 00 50 09 09 09 |.leave..|.+..P...|
|00000e40| 09 09 7b 67 6f 20 69 6e | 20 74 68 65 20 57 68 69 |..{go in| the Whi|
|00000e50| 6c 65 20 63 6f 6e 64 69 | 74 69 6f 6e 20 61 73 20 |le condi|tion as |
|00000e60| 69 74 20 69 73 20 61 6e | 20 65 72 72 6f 72 20 74 |it is an| error t|
|00000e70| 6f 20 63 61 6c 6c 20 45 | 4f 4c 20 77 68 65 6e 20 |o call E|OL when |
|00000e80| 45 4f 46 20 69 73 20 74 | 72 75 65 2e 7d 08 94 01 |EOF is t|rue.}...|
|00000e90| 86 09 24 5c 0c 6f 75 74 | 70 75 74 49 73 4f 70 65 |..$\.out|putIsOpe|
|00000ea0| 6e 08 80 05 00 00 00 00 | 00 00 0f 3c 92 24 00 00 |n.......|...<.$..|
|00000eb0| 42 09 09 09 09 09 7b 53 | 74 72 75 63 74 75 72 65 |B.....{S|tructure|
|00000ec0| 64 20 74 68 69 73 20 77 | 61 79 20 73 6f 20 61 73 |d this w|ay so as|
|00000ed0| 20 6e 6f 74 20 74 6f 20 | 6d 61 6b 65 20 65 6d 70 | not to |make emp|
|00000ee0| 74 79 20 73 65 67 6d 65 | 6e 74 73 20 69 66 20 74 |ty segme|nts if t|
|00000ef0| 68 65 7d 08 78 16 5c 12 | 73 65 71 75 65 6e 63 65 |he}.x.\.|sequence|
|00000f00| 4f 70 65 6e 4f 75 74 70 | 75 74 10 5c 06 69 6e 4e |OpenOutp|ut.\.inN|
|00000f10| 61 6d 65 12 5c 09 66 69 | 6c 65 43 6f 75 6e 74 16 |ame.\.fi|leCount.|
|00000f20| 98 01 92 1e 00 00 36 09 | 7b 45 4f 46 20 69 73 20 |......6.|{EOF is |
|00000f30| 74 68 65 20 73 61 6d 65 | 20 6c 69 6e 65 20 61 73 |the same| line as|
|00000f40| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 74 68 65 20 | the end| of the |
|00000f50| 6c 61 73 74 20 73 65 67 | 6d 65 6e 74 7d 08 86 0a |last seg|ment}...|
|00000f60| 24 5c 08 74 68 65 52 65 | 70 6c 79 52 5c 04 67 6f |$\.theRe|plyR\.go|
|00000f70| 6f 64 80 05 00 00 00 00 | 00 00 0f 3a 78 12 5c 07 |od......|...:x.\.|
|00000f80| 77 72 69 74 65 6c 6e 10 | 5a 05 13 53 65 67 6d 65 |writeln.|Z..Segme|
|00000f90| 6e 74 69 6e 67 20 61 62 | 6f 72 74 65 64 21 16 08 |nting ab|orted!..|
|00000fa0| 98 01 7e 04 05 6c 65 61 | 76 65 92 14 00 00 22 09 |..~..lea|ve....".|
|00000fb0| 7b 55 73 65 72 20 61 62 | 6f 72 74 65 64 20 74 68 |{User ab|orted th|
|00000fc0| 69 73 20 6e 65 78 74 20 | 73 65 67 6d 65 6e 74 21 |is next |segment!|
|00000fd0| 7d 08 9a 01 9a 01 98 01 | 94 01 78 0c 5c 06 6d 79 |}.......|..x.\.my|
|00000fe0| 46 69 6c 65 52 5c 06 52 | 65 61 64 4c 6e 10 5c 01 |FileR\.R|eadLn.\.|
|00000ff0| 73 16 98 01 78 0e 5c 08 | 6d 79 4f 75 74 70 75 74 |s...x.\.|myOutput|
|00001000| 52 5c 07 57 72 69 74 65 | 6c 6e 10 5c 01 73 16 08 |R\.Write|ln.\.s..|
|00001010| 98 01 78 16 5c 09 73 65 | 67 4c 65 6e 67 74 68 0a |..x.\.se|gLength.|
|00001020| 5c 09 73 65 67 4c 65 6e | 67 74 68 3c 5c 06 6c 65 |\.segLen|gth<\.le|
|00001030| 6e 67 74 68 10 5c 01 73 | 16 3c 5a 03 00 01 98 01 |ngth.\.s|.<Z.....|
|00001040| 92 23 00 00 40 09 7b 6b | 65 65 70 20 61 20 74 6f |.#..@.{k|eep a to|
|00001050| 74 61 6c 20 6f 66 20 62 | 79 74 65 73 2c 20 69 6e |tal of b|ytes, in|
|00001060| 63 6c 75 64 69 6e 67 20 | 74 68 65 20 43 52 20 40 |cluding |the CR @|
|00001070| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 74 68 65 20 | the end| of the |
|00001080| 6c 69 6e 65 7d 08 94 01 | 86 0d 5c 09 73 65 67 4c |line}...|..\.segL|
|00001090| 65 6e 67 74 68 4a 5c 09 | 63 68 75 6e 6b 53 69 7a |engthJ\.|chunkSiz|
|000010a0| 65 08 92 31 00 00 5c 09 | 09 7b 54 69 6d 65 20 74 |e..1..\.|.{Time t|
|000010b0| 6f 20 65 6e 64 20 74 68 | 69 73 20 73 65 67 6d 65 |o end th|is segme|
|000010c0| 6e 74 2e 20 49 66 20 74 | 68 65 72 65 20 69 73 20 |nt. If t|here is |
|000010d0| 6d 6f 72 65 20 69 6e 20 | 74 68 65 20 66 69 6c 65 |more in |the file|
|000010e0| 2c 20 74 68 65 20 61 62 | 6f 76 65 20 4f 70 65 6e |, the ab|ove Open|
|000010f0| 27 6c 6c 20 73 74 61 72 | 74 20 74 68 65 20 6e 65 |'ll star|t the ne|
|00001100| 78 74 7d 08 78 12 5c 13 | 73 65 71 75 65 6e 63 65 |xt}.x.\.|sequence|
|00001110| 43 6c 6f 73 65 4f 75 74 | 70 75 74 10 5c 09 66 69 |CloseOut|put.\.fi|
|00001120| 6c 65 43 6f 75 6e 74 16 | 98 01 9a 01 98 01 94 01 |leCount.|........|
|00001130| 94 01 78 12 5c 13 73 65 | 71 75 65 6e 63 65 43 6c |..x.\.se|quenceCl|
|00001140| 6f 73 65 4f 75 74 70 75 | 74 10 5c 09 66 69 6c 65 |oseOutpu|t.\.file|
|00001150| 43 6f 75 6e 74 16 98 01 | 92 2d 00 00 55 09 7b 43 |Count...|.-..U.{C|
|00001160| 6c 6f 73 65 20 74 68 65 | 20 65 6e 64 2c 20 69 66 |lose the| end, if|
|00001170| 20 69 74 73 20 6f 70 65 | 6e 2e 20 52 69 67 68 74 | its ope|n. Right|
|00001180| 20 6e 6f 77 2c 20 66 69 | 6c 65 43 6f 75 6e 74 20 | now, fi|leCount |
|00001190| 77 69 6c 6c 20 62 65 20 | 74 68 65 20 6e 75 6d 62 |will be |the numb|
|000011a0| 65 72 20 6f 66 20 73 65 | 67 6d 65 6e 74 73 20 2b |er of se|gments +|
|000011b0| 31 7d 78 09 5c 06 6d 79 | 46 69 6c 65 52 5c 05 43 |1}x.\.my|FileR\.C|
|000011c0| 6c 6f 73 65 98 01 78 23 | 5c 07 77 72 69 74 65 6c |lose..x#|\.writel|
|000011d0| 6e 10 5a 05 06 44 6f 6e | 65 21 20 12 10 5c 09 66 |n.Z..Don|e! ..\.f|
|000011e0| 69 6c 65 43 6f 75 6e 74 | 3e 08 5a 03 00 01 16 14 |ileCount|>.Z.....|
|000011f0| 5a 03 00 01 12 5a 05 12 | 20 73 65 67 6d 65 6e 74 |Z....Z..| segment|
|00001200| 73 20 77 72 69 74 74 65 | 6e 2e 16 08 98 01 9a 01 |s writte|n.......|
|00001210| 9a 01 98 01 9a 01 00 01 | 02 01                   |........|..      |
+--------+-------------------------+-------------------------+--------+--------+